/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / game / patch / ZInstall.lha / dist / Install_Zeewolf

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 0a 3b 24 56 45 52 3a | 20 5a 65 65 77 6f 6c 66 |;.;$VER:| Zeewolf|
|00000010| 20 48 44 20 49 6e 73 74 | 61 6c 6c 65 72 20 73 63 | HD Inst|aller sc|
|00000020| 72 69 70 74 20 76 33 2e | 30 32 20 28 63 29 20 31 |ript v3.|02 (c) 1|
|00000030| 39 39 36 2d 39 39 20 4a | 6f 68 6e 20 47 69 72 76 |996-99 J|ohn Girv|
|00000040| 69 6e 2f 48 61 6c 69 62 | 75 74 20 53 6f 66 74 77 |in/Halib|ut Softw|
|00000050| 61 72 65 00 3b 0a 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d |are.;..;|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 3b 20 43 |--------|----.; C|
|000000b0| 68 65 63 6b 73 20 69 66 | 20 67 69 76 65 6e 20 70 |hecks if| given p|
|000000c0| 72 6f 67 72 61 6d 20 69 | 73 20 72 65 61 63 68 61 |rogram i|s reacha|
|000000d0| 62 6c 65 20 76 69 61 20 | 74 68 65 20 70 61 74 68 |ble via |the path|
|000000e0| 0a 3b 20 69 66 20 6e 6f | 74 20 61 62 6f 72 74 20 |.; if no|t abort |
|000000f0| 69 6e 73 74 61 6c 6c 0a | 0a 28 70 72 6f 63 65 64 |install.|.(proced|
|00000100| 75 72 65 20 53 5f 43 68 | 65 63 6b 52 75 6e 0a 28 |ure S_Ch|eckRun.(|
|00000110| 0a 09 28 69 66 20 28 3c | 3e 20 30 20 28 72 75 6e |..(if (<|> 0 (run|
|00000120| 20 28 63 61 74 20 22 57 | 68 69 63 68 20 22 20 23 | (cat "W|hich " #|
|00000130| 5a 50 52 4f 47 52 41 4d | 29 29 29 0a 09 20 20 20 |ZPROGRAM|)))..   |
|00000140| 20 28 61 62 6f 72 74 0a | 09 09 09 28 63 61 74 0a | (abort.|...(cat.|
|00000150| 09 09 09 09 22 43 6f 75 | 6c 64 20 6e 6f 74 20 66 |...."Cou|ld not f|
|00000160| 69 6e 64 20 74 68 65 20 | 70 72 6f 67 72 61 6d 5c |ind the |program\|
|00000170| 6e 5c 6e 22 0a 09 09 09 | 09 22 27 22 20 23 5a 50 |n\n"....|."'" #ZP|
|00000180| 52 4f 47 52 41 4d 20 22 | 27 5c 6e 5c 6e 22 0a 09 |ROGRAM "|'\n\n"..|
|00000190| 09 09 09 22 72 65 71 75 | 69 72 65 64 20 74 6f 20 |..."requ|ired to |
|000001a0| 70 65 72 66 6f 72 6d 20 | 74 68 65 20 69 6e 73 74 |perform |the inst|
|000001b0| 61 6c 6c 61 74 69 6f 6e | 21 5c 6e 5c 6e 22 0a 09 |allation|!\n\n"..|
|000001c0| 09 09 09 22 50 6c 65 61 | 73 65 20 69 6e 73 74 61 |..."Plea|se insta|
|000001d0| 6c 6c 20 74 68 65 20 27 | 22 20 23 5a 50 52 4f 47 |ll the '|" #ZPROG|
|000001e0| 52 41 4d 20 22 27 20 70 | 72 6f 67 72 61 6d 20 65 |RAM "' p|rogram e|
|000001f0| 6e 73 75 72 69 6e 67 20 | 74 68 61 74 5c 6e 22 0a |nsuring |that\n".|
|00000200| 09 09 09 09 22 69 74 20 | 69 73 20 61 63 63 65 73 |...."it |is acces|
|00000210| 73 69 62 6c 65 20 6f 6e | 20 74 68 65 20 70 61 74 |sible on| the pat|
|00000220| 68 2c 20 74 68 65 6e 20 | 74 72 79 20 74 68 65 20 |h, then |try the |
|00000230| 69 6e 73 74 61 6c 6c 61 | 74 69 6f 6e 20 61 67 61 |installa|tion aga|
|00000240| 69 6e 2e 22 0a 09 09 09 | 29 0a 09 09 29 0a 09 29 |in."....|)...)..)|
|00000250| 0a 29 29 0a 0a 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.))..;--|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 3b 20 53 65 74 |--------|--.; Set|
|000002b0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 61 62 6f | informa|tion abo|
|000002c0| 75 74 20 64 69 73 6b 20 | 69 6d 61 67 65 0a 0a 28 |ut disk |image..(|
|000002d0| 70 72 6f 63 65 64 75 72 | 65 20 53 5f 47 65 74 49 |procedur|e S_GetI|
|000002e0| 6d 61 67 65 49 6e 66 6f | 0a 28 0a 09 28 73 65 74 |mageInfo|.(..(set|
|000002f0| 20 23 5a 56 45 52 54 59 | 50 20 2d 31 29 0a 09 28 | #ZVERTY|P -1)..(|
|00000300| 69 66 20 28 3d 20 31 20 | 28 65 78 69 73 74 73 20 |if (= 1 |(exists |
|00000310| 28 74 61 63 6b 6f 6e 20 | 23 5a 44 41 54 44 49 52 |(tackon |#ZDATDIR|
|00000320| 20 22 44 69 73 6b 2e 31 | 22 29 29 29 0a 09 09 28 | "Disk.1|")))...(|
|00000330| 0a 09 09 09 3b 20 49 6d | 61 67 65 20 65 78 69 73 |....; Im|age exis|
|00000340| 74 73 20 2d 20 67 65 74 | 20 69 74 73 20 43 52 43 |ts - get| its CRC|
|00000350| 20 61 6e 64 20 73 65 74 | 20 76 65 72 73 69 6f 6e | and set| version|
|00000360| 0a 0a 09 09 09 28 73 65 | 74 20 23 5a 43 52 43 0a |.....(se|t #ZCRC.|
|00000370| 09 09 09 09 28 72 75 6e | 20 28 63 61 74 20 22 43 |....(run| (cat "C|
|00000380| 52 43 31 36 20 22 20 28 | 74 61 63 6b 6f 6e 20 23 |RC16 " (|tackon #|
|00000390| 5a 44 41 54 44 49 52 20 | 22 44 69 73 6b 2e 31 22 |ZDATDIR |"Disk.1"|
|000003a0| 29 20 22 20 4c 45 4e 47 | 54 48 3d 35 36 33 32 22 |) " LENG|TH=5632"|
|000003b0| 29 29 0a 09 09 09 29 0a | 0a 09 09 09 28 69 66 20 |))....).|....(if |
|000003c0| 28 3d 20 23 5a 43 52 43 | 20 35 32 33 32 32 29 0a |(= #ZCRC| 52322).|
|000003d0| 09 09 09 09 28 73 65 74 | 20 23 5a 56 45 52 54 59 |....(set| #ZVERTY|
|000003e0| 50 20 31 29 0a 09 09 09 | 09 28 69 66 20 28 3d 20 |P 1)....|.(if (= |
|000003f0| 23 5a 43 52 43 20 36 30 | 32 34 29 0a 09 09 09 09 |#ZCRC 60|24).....|
|00000400| 09 28 73 65 74 20 23 5a | 56 45 52 54 59 50 20 33 |.(set #Z|VERTYP 3|
|00000410| 29 0a 09 09 09 09 09 28 | 73 65 74 20 23 5a 56 45 |)......(|set #ZVE|
|00000420| 52 54 59 50 20 30 29 0a | 09 09 09 09 29 0a 09 09 |RTYP 0).|....)...|
|00000430| 09 29 0a 09 09 29 0a 09 | 29 0a 29 29 0a 0a 0a 3b |.)...)..|).))...;|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 0a 3b 20 4d | 61 6b 65 20 69 6e 73 74 |----.; M|ake inst|
|000004a0| 61 6c 6c 61 74 69 6f 6e | 20 64 69 72 65 63 74 6f |allation| directo|
|000004b0| 72 69 65 73 0a 0a 28 70 | 72 6f 63 65 64 75 72 65 |ries..(p|rocedure|
|000004c0| 20 53 5f 49 6e 73 74 61 | 6c 6c 44 69 72 73 0a 28 | S_Insta|llDirs.(|
|000004d0| 0a 09 3b 0a 09 3b 20 43 | 72 65 61 74 65 20 6d 61 |..;..; C|reate ma|
|000004e0| 69 6e 20 64 69 72 20 69 | 66 20 72 65 71 75 69 72 |in dir i|f requir|
|000004f0| 65 64 0a 09 3b 0a 09 28 | 69 66 20 28 3c 3e 20 32 |ed..;..(|if (<> 2|
|00000500| 20 28 65 78 69 73 74 73 | 20 23 5a 44 45 53 54 44 | (exists| #ZDESTD|
|00000510| 49 52 29 29 0a 09 09 28 | 6d 61 6b 65 64 69 72 20 |IR))...(|makedir |
|00000520| 23 5a 44 45 53 54 44 49 | 52 0a 09 09 09 28 70 72 |#ZDESTDI|R....(pr|
|00000530| 6f 6d 70 74 20 22 54 68 | 65 20 64 69 72 65 63 74 |ompt "Th|e direct|
|00000540| 6f 72 79 20 27 22 20 23 | 5a 44 45 53 54 44 49 52 |ory '" #|ZDESTDIR|
|00000550| 20 22 27 20 77 69 6c 6c | 20 6e 6f 77 20 62 65 20 | "' will| now be |
|00000560| 63 72 65 61 74 65 64 22 | 29 0a 09 09 09 28 68 65 |created"|)....(he|
|00000570| 6c 70 20 40 6d 61 6b 65 | 64 69 72 2d 68 65 6c 70 |lp @make|dir-help|
|00000580| 29 0a 09 09 09 28 69 6e | 66 6f 73 29 0a 09 09 09 |)....(in|fos)....|
|00000590| 28 63 6f 6e 66 69 72 6d | 29 0a 09 09 29 0a 09 29 |(confirm|)...)..)|
|000005a0| 0a 0a 09 3b 0a 09 3b 20 | 43 72 65 61 74 65 20 64 |...;..; |Create d|
|000005b0| 61 74 61 20 64 69 72 20 | 69 66 20 72 65 71 75 69 |ata dir |if requi|
|000005c0| 72 65 64 0a 09 3b 0a 09 | 28 69 66 20 28 3c 3e 20 |red..;..|(if (<> |
|000005d0| 32 20 28 65 78 69 73 74 | 73 20 23 5a 44 41 54 44 |2 (exist|s #ZDATD|
|000005e0| 49 52 29 29 0a 09 09 28 | 6d 61 6b 65 64 69 72 20 |IR))...(|makedir |
|000005f0| 23 5a 44 41 54 44 49 52 | 0a 09 09 09 28 70 72 6f |#ZDATDIR|....(pro|
|00000600| 6d 70 74 20 22 54 68 65 | 20 64 69 72 65 63 74 6f |mpt "The| directo|
|00000610| 72 79 20 27 22 20 23 5a | 44 41 54 44 49 52 20 22 |ry '" #Z|DATDIR "|
|00000620| 27 20 77 69 6c 6c 20 6e | 6f 77 20 62 65 20 63 72 |' will n|ow be cr|
|00000630| 65 61 74 65 64 22 29 0a | 09 09 09 28 68 65 6c 70 |eated").|...(help|
|00000640| 20 40 6d 61 6b 65 64 69 | 72 2d 68 65 6c 70 29 0a | @makedi|r-help).|
|00000650| 09 09 09 28 63 6f 6e 66 | 69 72 6d 29 0a 09 09 29 |...(conf|irm)...)|
|00000660| 0a 09 29 0a 0a 09 3b 0a | 09 3b 20 43 6f 70 79 20 |..)...;.|.; Copy |
|00000670| 64 69 73 6b 20 64 72 61 | 77 65 72 20 69 63 6f 6e |disk dra|wer icon|
|00000680| 0a 09 3b 0a 09 28 69 66 | 20 28 3d 20 30 20 23 5a |..;..(if| (= 0 #Z|
|00000690| 55 50 47 52 41 44 45 29 | 0a 09 09 28 63 6f 70 79 |UPGRADE)|...(copy|
|000006a0| 66 69 6c 65 73 0a 09 09 | 09 28 70 72 6f 6d 70 74 |files...|.(prompt|
|000006b0| 20 22 43 6f 70 79 69 6e | 67 20 48 44 20 64 72 61 | "Copyin|g HD dra|
|000006c0| 77 65 72 20 69 63 6f 6e | 22 29 0a 09 09 09 28 68 |wer icon|")....(h|
|000006d0| 65 6c 70 20 40 63 6f 70 | 79 66 69 6c 65 73 2d 68 |elp @cop|yfiles-h|
|000006e0| 65 6c 70 29 0a 09 09 09 | 28 73 6f 75 72 63 65 20 |elp)....|(source |
|000006f0| 22 44 72 61 77 65 72 2e | 69 6e 66 22 29 0a 09 09 |"Drawer.|inf")...|
|00000700| 09 28 6e 65 77 6e 61 6d | 65 20 22 5a 65 65 77 6f |.(newnam|e "Zeewo|
|00000710| 6c 66 2e 69 6e 66 6f 22 | 29 0a 09 09 09 28 64 65 |lf.info"|)....(de|
|00000720| 73 74 20 23 5a 52 4f 4f | 54 44 49 52 29 0a 09 09 |st #ZROO|TDIR)...|
|00000730| 09 28 6e 6f 67 61 75 67 | 65 29 0a 09 09 09 28 6f |.(nogaug|e)....(o|
|00000740| 70 74 69 6f 6e 61 6c 20 | 66 61 69 6c 20 66 6f 72 |ptional |fail for|
|00000750| 63 65 29 0a 09 09 29 0a | 09 29 0a 29 29 0a 0a 3b |ce)...).|.).))..;|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 0a 3b 20 4d | 61 6b 65 20 67 61 6d 65 |----.; M|ake game|
|000007c0| 20 64 61 74 61 0a 0a 28 | 70 72 6f 63 65 64 75 72 | data..(|procedur|
|000007d0| 65 20 53 5f 49 6e 73 74 | 61 6c 6c 47 61 6d 65 0a |e S_Inst|allGame.|
|000007e0| 28 0a 09 3b 0a 09 3b 20 | 53 65 65 20 69 66 20 77 |(..;..; |See if w|
|000007f0| 65 20 6e 65 65 64 20 74 | 6f 20 63 72 65 61 74 65 |e need t|o create|
|00000800| 20 74 68 65 20 64 61 74 | 61 20 66 69 6c 65 0a 09 | the dat|a file..|
|00000810| 3b 0a 09 28 69 66 20 28 | 3c 3e 20 31 20 28 65 78 |;..(if (|<> 1 (ex|
|00000820| 69 73 74 73 20 28 74 61 | 63 6b 6f 6e 20 23 5a 44 |ists (ta|ckon #ZD|
|00000830| 41 54 44 49 52 20 22 44 | 69 73 6b 2e 31 22 29 29 |ATDIR "D|isk.1"))|
|00000840| 29 0a 09 09 28 0a 09 09 | 09 3b 0a 09 09 09 3b 20 |)...(...|.;....; |
|00000850| 47 65 74 20 67 61 6d 65 | 20 64 69 73 6b 20 69 6e |Get game| disk in|
|00000860| 73 65 72 74 65 64 0a 09 | 09 09 3b 0a 09 09 09 28 |serted..|..;....(|
|00000870| 6d 65 73 73 61 67 65 0a | 09 09 09 09 28 63 61 74 |message.|....(cat|
|00000880| 0a 09 09 09 09 09 22 5c | 6e 5c 6e 5c 6e 50 6c 65 |......"\|n\n\nPle|
|00000890| 61 73 65 20 69 6e 73 65 | 72 74 20 79 6f 75 72 20 |ase inse|rt your |
|000008a0| 5a 65 65 77 6f 6c 66 20 | 67 61 6d 65 20 64 69 73 |Zeewolf |game dis|
|000008b0| 6b 20 69 6e 20 64 72 69 | 76 65 20 22 20 23 5a 44 |k in dri|ve " #ZD|
|000008c0| 45 56 49 43 45 20 22 5c | 6e 5c 6e 22 0a 09 09 09 |EVICE "\|n\n"....|
|000008d0| 09 09 22 43 6c 69 63 6b | 20 27 50 72 6f 63 65 65 |.."Click| 'Procee|
|000008e0| 64 27 20 77 68 65 6e 20 | 72 65 61 64 79 2e 22 0a |d' when |ready.".|
|000008f0| 09 09 09 09 29 0a 09 09 | 09 29 0a 0a 09 09 09 3b |....)...|.).....;|
|00000900| 0a 09 09 09 3b 20 4d 61 | 6b 65 20 74 68 65 20 64 |....; Ma|ke the d|
|00000910| 69 73 6b 20 69 6d 61 67 | 65 0a 09 09 09 3b 0a 09 |isk imag|e....;..|
|00000920| 09 09 28 77 6f 72 6b 69 | 6e 67 20 22 43 72 65 61 |..(worki|ng "Crea|
|00000930| 74 69 6e 67 20 64 69 73 | 6b 20 69 6d 61 67 65 20 |ting dis|k image |
|00000940| 69 6e 20 27 22 20 23 5a | 44 41 54 44 49 52 20 22 |in '" #Z|DATDIR "|
|00000950| 27 22 29 0a 0a 09 09 09 | 28 73 65 74 20 40 65 78 |'").....|(set @ex|
|00000960| 65 63 75 74 65 2d 64 69 | 72 20 23 5a 44 41 54 44 |ecute-di|r #ZDATD|
|00000970| 49 52 29 0a 09 09 09 28 | 72 75 6e 20 28 63 61 74 |IR)....(|run (cat|
|00000980| 20 22 44 49 43 20 44 45 | 56 49 43 45 3d 22 20 23 | "DIC DE|VICE=" #|
|00000990| 5a 44 45 56 49 43 45 20 | 22 20 53 49 5a 45 3d 39 |ZDEVICE |" SIZE=9|
|000009a0| 30 31 31 32 30 20 46 44 | 3d 31 20 4c 44 3d 31 22 |01120 FD|=1 LD=1"|
|000009b0| 29 29 0a 09 09 09 28 73 | 65 74 20 40 65 78 65 63 |))....(s|et @exec|
|000009c0| 75 74 65 2d 64 69 72 20 | 23 5a 4f 4c 44 45 58 45 |ute-dir |#ZOLDEXE|
|000009d0| 44 49 52 29 0a 09 09 29 | 0a 09 29 0a 0a 09 3b 0a |DIR)...)|..)...;.|
|000009e0| 09 3b 20 43 68 65 63 6b | 20 74 68 65 20 64 69 73 |.; Check| the dis|
|000009f0| 6b 20 69 6d 61 67 65 20 | 77 61 73 20 63 72 65 61 |k image |was crea|
|00000a00| 74 65 64 20 61 6e 64 0a | 09 3b 20 74 68 61 74 20 |ted and.|.; that |
|00000a10| 77 65 20 6b 6e 6f 77 20 | 74 68 69 73 20 76 65 72 |we know |this ver|
|00000a20| 73 69 6f 6e 20 6f 66 20 | 74 68 65 20 67 61 6d 65 |sion of |the game|
|00000a30| 0a 09 3b 0a 09 28 53 5f | 47 65 74 49 6d 61 67 65 |..;..(S_|GetImage|
|00000a40| 49 6e 66 6f 29 0a 0a 09 | 28 69 66 20 28 3d 20 30 |Info)...|(if (= 0|
|00000a50| 20 23 5a 56 45 52 54 59 | 50 29 0a 09 09 28 61 62 | #ZVERTY|P)...(ab|
|00000a60| 6f 72 74 0a 09 09 09 28 | 63 61 74 09 22 5c 6e 2a |ort....(|cat."\n*|
|00000a70| 2a 2a 20 55 4e 4b 4e 4f | 57 4e 20 56 45 52 53 49 |** UNKNO|WN VERSI|
|00000a80| 4f 4e 20 4f 46 20 47 41 | 4d 45 21 20 2a 2a 2a 5c |ON OF GA|ME! ***\|
|00000a90| 6e 5c 6e 22 0a 09 09 09 | 09 09 22 54 68 69 73 20 |n\n"....|.."This |
|00000aa0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 5a 49 6e 73 74 |version |of ZInst|
|00000ab0| 61 6c 6c 20 64 6f 65 73 | 20 6e 6f 74 20 72 65 63 |all does| not rec|
|00000ac0| 6f 67 6e 69 73 65 5c 6e | 22 0a 09 09 09 09 09 22 |ognise\n|"......"|
|00000ad0| 74 68 65 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 5a |the vers|ion of Z|
|00000ae0| 65 65 77 6f 6c 66 20 79 | 6f 75 20 61 72 65 20 74 |eewolf y|ou are t|
|00000af0| 72 79 69 6e 67 20 74 6f | 20 69 6e 73 74 61 6c 6c |rying to| install|
|00000b00| 2e 5c 6e 5c 6e 22 0a 09 | 09 09 09 09 22 50 6c 65 |.\n\n"..|...."Ple|
|00000b10| 61 73 65 20 63 6f 6e 74 | 61 63 74 20 74 68 65 20 |ase cont|act the |
|00000b20| 61 75 74 68 6f 72 20 6f | 66 20 5a 49 6e 73 74 61 |author o|f ZInsta|
|00000b30| 6c 6c 5c 6e 22 0a 09 09 | 09 09 09 22 66 6f 72 20 |ll\n"...|..."for |
|00000b40| 66 75 72 74 68 65 72 20 | 69 6e 66 6f 72 6d 61 74 |further |informat|
|00000b50| 69 6f 6e 2e 22 0a 09 09 | 09 29 0a 09 09 29 0a 09 |ion."...|.)...)..|
|00000b60| 29 0a 0a 09 28 69 66 20 | 28 3d 20 2d 31 20 23 5a |)...(if |(= -1 #Z|
|00000b70| 56 45 52 54 59 50 29 0a | 09 09 28 61 62 6f 72 74 |VERTYP).|..(abort|
|00000b80| 0a 09 09 09 28 63 61 74 | 09 22 5c 6e 2a 2a 2a 20 |....(cat|."\n*** |
|00000b90| 44 49 53 4b 20 49 4d 41 | 47 45 20 4e 4f 54 20 43 |DISK IMA|GE NOT C|
|00000ba0| 52 45 41 54 45 44 21 20 | 2a 2a 2a 5c 6e 5c 6e 22 |REATED! |***\n\n"|
|00000bb0| 0a 09 09 09 09 09 22 5a | 49 6e 73 74 61 6c 6c 20 |......"Z|Install |
|00000bc0| 77 61 73 20 6e 6f 74 20 | 61 62 6c 65 20 74 6f 20 |was not |able to |
|00000bd0| 63 72 65 61 74 65 20 61 | 20 64 69 73 6b 20 69 6d |create a| disk im|
|00000be0| 61 67 65 20 66 69 6c 65 | 2e 5c 6e 5c 6e 22 0a 09 |age file|.\n\n"..|
|00000bf0| 09 09 09 09 22 50 6c 65 | 61 73 65 20 63 6f 6e 74 |...."Ple|ase cont|
|00000c00| 61 63 74 20 74 68 65 20 | 61 75 74 68 6f 72 20 6f |act the |author o|
|00000c10| 66 20 5a 49 6e 73 74 61 | 6c 6c 5c 6e 22 0a 09 09 |f ZInsta|ll\n"...|
|00000c20| 09 09 09 22 66 6f 72 20 | 66 75 72 74 68 65 72 20 |..."for |further |
|00000c30| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 22 0a 09 09 |informat|ion."...|
|00000c40| 09 29 0a 09 09 29 0a 09 | 29 0a 0a 09 28 69 66 20 |.)...)..|)...(if |
|00000c50| 28 3d 20 30 20 23 5a 55 | 50 47 52 41 44 45 29 0a |(= 0 #ZU|PGRADE).|
|00000c60| 09 09 28 6d 65 73 73 61 | 67 65 20 22 5c 6e 5c 6e |..(messa|ge "\n\n|
|00000c70| 44 69 73 6b 20 69 6d 61 | 67 65 20 63 72 65 61 74 |Disk ima|ge creat|
|00000c80| 65 64 20 73 75 63 63 65 | 73 73 66 75 6c 79 21 22 |ed succe|ssfuly!"|
|00000c90| 29 0a 09 29 0a 29 29 0a | 0a 3b 2d 2d 2d 2d 2d 2d |)..).)).|.;------|
|00000ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 3b |--------|------.;|
|00000cf0| 20 4d 61 6b 65 20 63 6f | 72 72 65 63 74 20 76 65 | Make co|rrect ve|
|00000d00| 72 73 69 6f 6e 20 6f 66 | 20 57 48 44 4c 6f 61 64 |rsion of| WHDLoad|
|00000d10| 20 73 6c 61 76 65 20 70 | 72 6f 67 72 61 6d 0a 0a | slave p|rogram..|
|00000d20| 28 70 72 6f 63 65 64 75 | 72 65 20 53 5f 49 6e 73 |(procedu|re S_Ins|
|00000d30| 74 61 6c 6c 53 6c 61 76 | 65 0a 28 0a 09 3b 0a 09 |tallSlav|e.(..;..|
|00000d40| 3b 20 43 72 65 61 74 65 | 20 73 6c 61 76 65 20 66 |; Create| slave f|
|00000d50| 72 6f 6d 20 62 61 73 65 | 20 66 69 6c 65 20 61 6e |rom base| file an|
|00000d60| 64 20 70 61 74 63 68 0a | 09 3b 0a 09 28 77 6f 72 |d patch.|.;..(wor|
|00000d70| 6b 69 6e 67 20 22 43 72 | 65 61 74 69 6e 67 20 73 |king "Cr|eating s|
|00000d80| 6c 61 76 65 20 70 72 6f | 67 72 61 6d 22 29 0a 0a |lave pro|gram")..|
|00000d90| 09 28 73 65 74 20 23 5a | 53 4c 56 50 43 48 4e 41 |.(set #Z|SLVPCHNA|
|00000da0| 4d 20 28 63 61 74 20 22 | 76 22 20 23 5a 56 45 52 |M (cat "|v" #ZVER|
|00000db0| 54 59 50 20 22 2e 77 70 | 63 68 22 29 29 0a 0a 09 |TYP ".wp|ch"))...|
|00000dc0| 28 73 65 74 20 23 5a 52 | 43 4f 44 45 0a 09 09 28 |(set #ZR|CODE...(|
|00000dd0| 72 75 6e 0a 09 09 09 28 | 63 61 74 20 22 57 50 61 |run....(|cat "WPa|
|00000de0| 74 63 68 20 53 6c 61 76 | 65 2e 62 61 73 65 20 22 |tch Slav|e.base "|
|00000df0| 0a 09 09 09 09 09 28 74 | 61 63 6b 6f 6e 20 23 5a |......(t|ackon #Z|
|00000e00| 44 45 53 54 44 49 52 20 | 22 5a 48 44 22 29 0a 09 |DESTDIR |"ZHD")..|
|00000e10| 09 09 09 09 22 20 22 20 | 23 5a 53 4c 56 50 43 48 |...." " |#ZSLVPCH|
|00000e20| 4e 41 4d 0a 09 09 09 29 | 0a 09 09 29 0a 09 29 0a |NAM....)|...)..).|
|00000e30| 0a 09 28 69 66 20 28 3c | 3e 20 23 5a 52 43 4f 44 |..(if (<|> #ZRCOD|
|00000e40| 45 20 30 29 0a 09 09 28 | 61 62 6f 72 74 0a 09 09 |E 0)...(|abort...|
|00000e50| 09 28 63 61 74 20 22 53 | 6c 61 76 65 20 67 65 6e |.(cat "S|lave gen|
|00000e60| 65 72 61 74 69 6f 6e 20 | 66 61 69 6c 65 64 20 65 |eration |failed e|
|00000e70| 72 72 6f 72 20 22 20 23 | 5a 52 43 4f 44 45 29 0a |rror " #|ZRCODE).|
|00000e80| 09 09 29 0a 09 29 0a 29 | 29 0a 0a 3b 2d 2d 2d 2d |..)..).)|)..;----|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ee0| 0a 3b 20 49 6e 73 74 61 | 6c 6c 20 74 68 65 20 74 |.; Insta|ll the t|
|00000ef0| 72 61 69 6e 65 72 20 47 | 55 49 0a 0a 28 70 72 6f |rainer G|UI..(pro|
|00000f00| 63 65 64 75 72 65 20 53 | 5f 49 6e 73 74 61 6c 6c |cedure S|_Install|
|00000f10| 47 55 49 0a 28 0a 09 3b | 0a 09 3b 20 43 6f 70 79 |GUI.(..;|..; Copy|
|00000f20| 20 47 55 49 20 70 72 6f | 67 72 61 6d 0a 09 3b 0a | GUI pro|gram..;.|
|00000f30| 09 28 63 6f 70 79 66 69 | 6c 65 73 0a 09 09 28 70 |.(copyfi|les...(p|
|00000f40| 72 6f 6d 70 74 20 22 43 | 6f 70 79 69 6e 67 20 47 |rompt "C|opying G|
|00000f50| 55 49 20 70 72 6f 67 72 | 61 6d 22 29 0a 09 09 28 |UI progr|am")...(|
|00000f60| 68 65 6c 70 20 40 63 6f | 70 79 66 69 6c 65 73 2d |help @co|pyfiles-|
|00000f70| 68 65 6c 70 29 0a 09 09 | 28 73 6f 75 72 63 65 20 |help)...|(source |
|00000f80| 22 47 55 49 22 29 0a 09 | 09 28 6e 65 77 6e 61 6d |"GUI")..|.(newnam|
|00000f90| 65 20 22 5a 65 65 77 6f | 6c 66 5f 48 44 22 29 0a |e "Zeewo|lf_HD").|
|00000fa0| 09 09 28 64 65 73 74 20 | 23 5a 44 45 53 54 44 49 |..(dest |#ZDESTDI|
|00000fb0| 52 29 0a 09 09 28 6e 6f | 67 61 75 67 65 29 0a 09 |R)...(no|gauge)..|
|00000fc0| 09 28 6f 70 74 69 6f 6e | 61 6c 20 66 61 69 6c 20 |.(option|al fail |
|00000fd0| 66 6f 72 63 65 29 0a 09 | 29 0a 0a 09 3b 0a 09 3b |force)..|)...;..;|
|00000fe0| 20 43 6f 70 79 20 47 55 | 49 20 69 63 6f 6e 0a 09 | Copy GU|I icon..|
|00000ff0| 3b 0a 09 28 69 66 20 28 | 3d 20 30 20 23 5a 55 50 |;..(if (|= 0 #ZUP|
|00001000| 47 52 41 44 45 29 0a 09 | 09 28 63 6f 70 79 66 69 |GRADE)..|.(copyfi|
|00001010| 6c 65 73 0a 09 09 09 28 | 70 72 6f 6d 70 74 20 22 |les....(|prompt "|
|00001020| 43 6f 70 79 69 6e 67 20 | 47 55 49 20 69 63 6f 6e |Copying |GUI icon|
|00001030| 22 29 0a 09 09 09 28 68 | 65 6c 70 20 40 63 6f 70 |")....(h|elp @cop|
|00001040| 79 66 69 6c 65 73 2d 68 | 65 6c 70 29 0a 09 09 09 |yfiles-h|elp)....|
|00001050| 28 73 6f 75 72 63 65 20 | 22 47 55 49 2e 69 6e 66 |(source |"GUI.inf|
|00001060| 22 29 0a 09 09 09 28 6e | 65 77 6e 61 6d 65 20 22 |")....(n|ewname "|
|00001070| 5a 65 65 77 6f 6c 66 5f | 48 44 2e 69 6e 66 6f 22 |Zeewolf_|HD.info"|
|00001080| 29 0a 09 09 09 28 64 65 | 73 74 20 23 5a 44 45 53 |)....(de|st #ZDES|
|00001090| 54 44 49 52 29 0a 09 09 | 09 28 6e 6f 67 61 75 67 |TDIR)...|.(nogaug|
|000010a0| 65 29 0a 09 09 09 28 6f | 70 74 69 6f 6e 61 6c 20 |e)....(o|ptional |
|000010b0| 66 61 69 6c 20 66 6f 72 | 63 65 29 0a 09 09 29 0a |fail for|ce)...).|
|000010c0| 09 29 0a 29 29 0a 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d |.).))..;|--------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0a 28 77 65 |--------|----.(we|
|00001120| 6c 63 6f 6d 65 20 22 57 | 65 6c 63 6f 6d 65 20 74 |lcome "W|elcome t|
|00001130| 6f 20 74 68 65 20 5a 65 | 65 77 6f 6c 66 20 48 44 |o the Ze|ewolf HD|
|00001140| 20 49 6e 73 74 61 6c 6c | 65 72 22 29 0a 28 73 65 | Install|er").(se|
|00001150| 74 20 40 61 70 70 2d 6e | 61 6d 65 20 22 5a 65 65 |t @app-n|ame "Zee|
|00001160| 77 6f 6c 66 22 29 0a 28 | 73 65 74 20 23 5a 44 45 |wolf").(|set #ZDE|
|00001170| 56 49 43 45 20 20 22 44 | 46 30 3a 22 29 0a 28 73 |VICE  "D|F0:").(s|
|00001180| 65 74 20 23 5a 52 4f 4f | 54 44 49 52 20 22 52 41 |et #ZROO|TDIR "RA|
|00001190| 4d 3a 22 29 0a 28 73 65 | 74 20 23 5a 44 45 53 54 |M:").(se|t #ZDEST|
|000011a0| 44 49 52 20 22 22 29 0a | 28 73 65 74 20 23 5a 44 |DIR "").|(set #ZD|
|000011b0| 41 54 44 49 52 20 20 22 | 22 29 0a 28 73 65 74 20 |ATDIR  "|").(set |
|000011c0| 23 5a 44 45 46 54 52 41 | 49 4e 45 52 53 20 30 29 |#ZDEFTRA|INERS 0)|
|000011d0| 0a 28 73 65 74 20 23 5a | 53 54 41 52 54 4d 49 53 |.(set #Z|STARTMIS|
|000011e0| 53 49 4f 4e 20 30 29 0a | 28 73 65 74 20 23 5a 4f |SION 0).|(set #ZO|
|000011f0| 4c 44 45 58 45 44 49 52 | 20 40 65 78 65 63 75 74 |LDEXEDIR| @execut|
|00001200| 65 2d 64 69 72 29 0a 0a | 28 69 66 09 28 3c 3e 20 |e-dir)..|(if.(<> |
|00001210| 40 75 73 65 72 2d 6c 65 | 76 65 6c 20 32 29 0a 09 |@user-le|vel 2)..|
|00001220| 28 61 62 6f 72 74 20 22 | 59 6f 75 20 6d 75 73 74 |(abort "|You must|
|00001230| 20 73 65 6c 65 63 74 20 | 27 45 78 70 65 72 74 27 | select |'Expert'|
|00001240| 20 75 73 65 72 20 6c 65 | 76 65 6c 22 29 0a 29 0a | user le|vel").).|
|00001250| 0a 28 69 66 09 28 3c 20 | 40 69 6e 73 74 61 6c 6c |.(if.(< |@install|
|00001260| 65 72 2d 76 65 72 73 69 | 6f 6e 20 32 38 31 38 30 |er-versi|on 28180|
|00001270| 35 31 29 0a 09 28 61 62 | 6f 72 74 20 22 54 68 69 |51)..(ab|ort "Thi|
|00001280| 73 20 70 61 63 6b 61 67 | 65 20 72 65 71 75 69 72 |s packag|e requir|
|00001290| 65 73 20 61 74 20 6c 65 | 61 73 74 20 76 65 72 73 |es at le|ast vers|
|000012a0| 69 6f 6e 20 34 33 2e 33 | 20 6f 66 20 74 68 65 20 |ion 43.3| of the |
|000012b0| 49 6e 73 74 61 6c 6c 65 | 72 20 70 72 6f 67 72 61 |Installe|r progra|
|000012c0| 6d 22 29 0a 29 0a 0a 3b | 0a 3b 20 43 68 65 63 6b |m").)..;|.; Check|
|000012d0| 20 70 72 6f 67 72 61 6d | 73 20 61 76 61 69 6c 61 | program|s availa|
|000012e0| 62 6c 65 0a 3b 0a 28 73 | 65 74 20 23 5a 50 52 4f |ble.;.(s|et #ZPRO|
|000012f0| 47 52 41 4d 20 22 43 52 | 43 31 36 22 29 0a 28 53 |GRAM "CR|C16").(S|
|00001300| 5f 43 68 65 63 6b 52 75 | 6e 29 0a 28 73 65 74 20 |_CheckRu|n).(set |
|00001310| 23 5a 50 52 4f 47 52 41 | 4d 20 22 44 49 43 22 29 |#ZPROGRA|M "DIC")|
|00001320| 0a 28 53 5f 43 68 65 63 | 6b 52 75 6e 29 0a 28 73 |.(S_Chec|kRun).(s|
|00001330| 65 74 20 23 5a 50 52 4f | 47 52 41 4d 20 22 57 48 |et #ZPRO|GRAM "WH|
|00001340| 44 4c 6f 61 64 22 29 0a | 28 53 5f 43 68 65 63 6b |DLoad").|(S_Check|
|00001350| 52 75 6e 29 0a 0a 3b 0a | 3b 20 4e 69 63 65 20 66 |Run)..;.|; Nice f|
|00001360| 72 69 65 6e 64 6c 79 20 | 77 65 6c 63 6f 6d 65 20 |riendly |welcome |
|00001370| 6d 65 73 73 61 67 65 0a | 3b 0a 28 6d 65 73 73 61 |message.|;.(messa|
|00001380| 67 65 20 22 5c 6e 5c 6e | 57 65 6c 63 6f 6d 65 20 |ge "\n\n|Welcome |
|00001390| 74 6f 20 74 68 65 20 5a | 65 65 77 6f 6c 66 20 48 |to the Z|eewolf H|
|000013a0| 44 20 49 6e 73 74 61 6c | 6c 65 72 5c 6e 22 0a 09 |D Instal|ler\n"..|
|000013b0| 09 20 22 28 63 29 20 31 | 39 39 36 2d 39 39 20 4a |. "(c) 1|996-99 J|
|000013c0| 6f 68 6e 20 47 69 72 76 | 69 6e 2f 48 61 6c 69 62 |ohn Girv|in/Halib|
|000013d0| 75 74 20 53 6f 66 74 77 | 61 72 65 5c 6e 5c 6e 22 |ut Softw|are\n\n"|
|000013e0| 0a 09 09 20 22 50 6c 65 | 61 73 65 20 72 65 61 64 |... "Ple|ase read|
|000013f0| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | the doc|umentati|
|00001400| 6f 6e 20 74 68 6f 72 6f | 75 67 68 6c 79 20 22 0a |on thoro|ughly ".|
|00001410| 09 09 20 22 62 65 66 6f | 72 65 20 61 74 74 65 6d |.. "befo|re attem|
|00001420| 70 74 69 6e 67 20 74 6f | 20 75 73 65 20 74 68 69 |pting to| use thi|
|00001430| 73 20 69 6e 73 74 61 6c | 6c 65 72 21 5c 6e 5c 6e |s instal|ler!\n\n|
|00001440| 22 0a 09 09 20 22 54 68 | 69 73 20 69 73 20 74 68 |"... "Th|is is th|
|00001450| 65 20 75 6e 72 65 67 69 | 73 74 65 72 65 64 20 65 |e unregi|stered e|
|00001460| 76 61 6c 75 61 74 69 6f | 6e 20 76 65 72 73 69 6f |valuatio|n versio|
|00001470| 6e 20 33 2e 30 32 5c 6e | 22 0a 09 09 20 22 50 6c |n 3.02\n|"... "Pl|
|00001480| 65 61 73 65 20 72 65 66 | 65 72 20 74 6f 20 74 68 |ease ref|er to th|
|00001490| 65 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e docume|ntation |
|000014a0| 66 6f 72 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |for info|rmation |
|000014b0| 22 0a 09 09 20 22 6f 6e | 20 68 6f 77 20 74 6f 20 |"... "on| how to |
|000014c0| 6f 62 74 61 69 6e 20 74 | 68 65 20 66 75 6c 6c 2c |obtain t|he full,|
|000014d0| 20 72 65 67 69 73 74 65 | 72 65 64 20 76 65 72 73 | registe|red vers|
|000014e0| 69 6f 6e 20 6f 66 20 22 | 0a 09 09 20 22 74 68 69 |ion of "|... "thi|
|000014f0| 73 20 70 72 6f 64 75 63 | 74 21 5c 6e 5c 6e 22 0a |s produc|t!\n\n".|
|00001500| 09 09 20 22 43 6c 69 63 | 6b 20 27 50 72 6f 63 65 |.. "Clic|k 'Proce|
|00001510| 65 64 27 20 74 6f 20 62 | 65 67 69 6e 2e 2e 2e 22 |ed' to b|egin..."|
|00001520| 0a 29 0a 0a 3b 0a 3b 20 | 49 6e 73 74 61 6c 6c 20 |.)..;.; |Install |
|00001530| 6f 72 20 75 70 67 72 61 | 64 65 3f 0a 3b 0a 28 73 |or upgra|de?.;.(s|
|00001540| 65 74 20 23 5a 55 50 47 | 52 41 44 45 0a 09 28 61 |et #ZUPG|RADE..(a|
|00001550| 73 6b 62 6f 6f 6c 0a 09 | 09 28 70 72 6f 6d 70 74 |skbool..|.(prompt|
|00001560| 20 22 44 6f 20 79 6f 75 | 20 68 61 76 65 20 61 6e | "Do you| have an|
|00001570| 20 65 78 69 73 74 69 6e | 67 20 69 6e 73 74 61 6c | existin|g instal|
|00001580| 6c 61 74 69 6f 6e 20 6f | 66 5c 6e 22 0a 09 09 09 |lation o|f\n"....|
|00001590| 09 22 5a 65 65 77 6f 6c | 66 20 76 33 2e 30 30 2b |."Zeewol|f v3.00+|
|000015a0| 20 3f 22 29 0a 09 09 28 | 68 65 6c 70 20 40 61 73 | ?")...(|help @as|
|000015b0| 6b 63 68 6f 69 63 65 2d | 68 65 6c 70 29 0a 09 09 |kchoice-|help)...|
|000015c0| 28 63 68 6f 69 63 65 73 | 20 22 59 65 73 22 20 22 |(choices| "Yes" "|
|000015d0| 4e 6f 22 29 0a 09 09 28 | 64 65 66 61 75 6c 74 20 |No")...(|default |
|000015e0| 30 29 0a 09 29 0a 29 0a | 0a 3b 0a 3b 20 47 65 74 |0)..).).|.;.; Get|
|000015f0| 20 64 65 76 69 63 65 20 | 74 6f 20 69 6e 73 74 61 | device |to insta|
|00001600| 6c 6c 20 66 72 6f 6d 0a | 3b 0a 28 69 66 20 28 3d |ll from.|;.(if (=|
|00001610| 20 30 20 23 5a 55 50 47 | 52 41 44 45 29 0a 09 28 | 0 #ZUPG|RADE)..(|
|00001620| 0a 09 09 28 73 65 74 20 | 23 5a 44 45 56 49 43 45 |...(set |#ZDEVICE|
|00001630| 0a 09 09 09 28 61 73 6b | 63 68 6f 69 63 65 0a 09 |....(ask|choice..|
|00001640| 09 09 09 28 70 72 6f 6d | 70 74 20 22 57 68 69 63 |...(prom|pt "Whic|
|00001650| 68 20 64 72 69 76 65 20 | 77 6f 75 6c 64 20 79 6f |h drive |would yo|
|00001660| 75 20 6c 69 6b 65 20 74 | 6f 20 69 6e 73 74 61 6c |u like t|o instal|
|00001670| 6c 20 66 72 6f 6d 3f 22 | 29 0a 09 09 09 09 28 63 |l from?"|).....(c|
|00001680| 68 6f 69 63 65 73 20 22 | 44 46 30 3a 22 20 22 44 |hoices "|DF0:" "D|
|00001690| 46 31 3a 22 20 22 52 41 | 44 3a 22 20 22 4f 74 68 |F1:" "RA|D:" "Oth|
|000016a0| 65 72 2e 2e 2e 22 29 0a | 09 09 09 09 28 64 65 66 |er...").|....(def|
|000016b0| 61 75 6c 74 20 30 29 0a | 09 09 09 09 28 68 65 6c |ault 0).|....(hel|
|000016c0| 70 20 40 61 73 6b 63 68 | 6f 69 63 65 2d 68 65 6c |p @askch|oice-hel|
|000016d0| 70 29 0a 09 09 09 29 0a | 09 09 29 0a 0a 09 09 28 |p)....).|..)....(|
|000016e0| 73 65 6c 65 63 74 20 23 | 5a 44 45 56 49 43 45 0a |select #|ZDEVICE.|
|000016f0| 09 09 09 28 73 65 74 20 | 23 5a 44 45 56 49 43 45 |...(set |#ZDEVICE|
|00001700| 20 22 44 46 30 3a 22 29 | 0a 09 09 09 28 73 65 74 | "DF0:")|....(set|
|00001710| 20 23 5a 44 45 56 49 43 | 45 20 22 44 46 31 3a 22 | #ZDEVIC|E "DF1:"|
|00001720| 29 0a 09 09 09 28 73 65 | 74 20 23 5a 44 45 56 49 |)....(se|t #ZDEVI|
|00001730| 43 45 20 22 52 41 44 3a | 22 29 0a 09 09 09 28 73 |CE "RAD:|")....(s|
|00001740| 65 74 20 23 5a 44 45 56 | 49 43 45 0a 09 09 09 09 |et #ZDEV|ICE.....|
|00001750| 28 61 73 6b 73 74 72 69 | 6e 67 0a 09 09 09 09 09 |(askstri|ng......|
|00001760| 28 70 72 6f 6d 70 74 20 | 22 45 6e 74 65 72 20 64 |(prompt |"Enter d|
|00001770| 72 69 76 65 20 74 6f 20 | 69 6e 73 74 61 6c 6c 20 |rive to |install |
|00001780| 66 72 6f 6d 3a 22 29 0a | 09 09 09 09 09 28 64 65 |from:").|.....(de|
|00001790| 66 61 75 6c 74 20 22 44 | 46 30 3a 22 29 0a 09 09 |fault "D|F0:")...|
|000017a0| 09 09 09 28 68 65 6c 70 | 20 40 61 73 6b 73 74 72 |...(help| @askstr|
|000017b0| 69 6e 67 2d 68 65 6c 70 | 29 0a 09 09 09 09 29 0a |ing-help|).....).|
|000017c0| 09 09 09 29 0a 09 09 29 | 0a 09 29 0a 29 0a 0a 3b |...)...)|..).)..;|
|000017d0| 0a 3b 20 47 65 74 20 64 | 69 72 65 63 74 6f 72 79 |.; Get d|irectory|
|000017e0| 20 74 6f 20 69 6e 73 74 | 61 6c 6c 20 69 6e 2c 0a | to inst|all in,.|
|000017f0| 3b 20 6f 72 20 64 69 72 | 65 63 74 6f 72 79 20 5a |; or dir|ectory Z|
|00001800| 65 65 77 6f 6c 66 20 69 | 73 20 63 75 72 72 65 6e |eewolf i|s curren|
|00001810| 74 6c 79 20 69 6e 0a 3b | 0a 28 69 66 20 28 3d 20 |tly in.;|.(if (= |
|00001820| 30 20 23 5a 55 50 47 52 | 41 44 45 29 0a 09 3b 0a |0 #ZUPGR|ADE)..;.|
|00001830| 09 3b 20 4e 65 77 20 69 | 6e 73 74 61 6c 6c 61 74 |.; New i|nstallat|
|00001840| 69 6f 6e 0a 09 3b 0a 09 | 28 73 65 74 20 23 5a 52 |ion..;..|(set #ZR|
|00001850| 4f 4f 54 44 49 52 0a 09 | 09 28 61 73 6b 64 69 72 |OOTDIR..|.(askdir|
|00001860| 0a 09 09 09 28 70 72 6f | 6d 70 74 20 22 57 68 65 |....(pro|mpt "Whe|
|00001870| 72 65 20 77 6f 75 6c 64 | 20 79 6f 75 20 6c 69 6b |re would| you lik|
|00001880| 65 20 5a 65 65 77 6f 6c | 66 20 69 6e 73 74 61 6c |e Zeewol|f instal|
|00001890| 6c 65 64 3f 5c 6e 22 0a | 09 09 09 09 09 22 28 61 |led?\n".|....."(a|
|000018a0| 20 6e 65 77 20 64 72 61 | 77 65 72 20 63 61 6c 6c | new dra|wer call|
|000018b0| 65 64 20 27 5a 65 65 77 | 6f 6c 66 27 20 77 69 6c |ed 'Zeew|olf' wil|
|000018c0| 6c 20 62 65 20 63 72 65 | 61 74 65 64 20 68 65 72 |l be cre|ated her|
|000018d0| 65 29 22 0a 09 09 09 29 | 0a 09 09 09 28 68 65 6c |e)"....)|....(hel|
|000018e0| 70 20 40 61 73 6b 64 69 | 72 2d 68 65 6c 70 29 0a |p @askdi|r-help).|
|000018f0| 09 09 09 28 64 65 66 61 | 75 6c 74 20 23 5a 52 4f |...(defa|ult #ZRO|
|00001900| 4f 54 44 49 52 29 0a 09 | 09 29 0a 09 29 0a 0a 09 |OTDIR)..|.)..)...|
|00001910| 3b 0a 09 3b 20 55 70 67 | 72 61 64 65 20 65 78 69 |;..; Upg|rade exi|
|00001920| 73 74 69 6e 67 20 69 6e | 73 74 61 6c 6c 61 74 69 |sting in|stallati|
|00001930| 6f 6e 0a 09 3b 0a 09 28 | 77 68 69 6c 65 20 28 3c |on..;..(|while (<|
|00001940| 3e 20 32 20 28 65 78 69 | 73 74 73 20 28 74 61 63 |> 2 (exi|sts (tac|
|00001950| 6b 6f 6e 20 23 5a 52 4f | 4f 54 44 49 52 20 22 5a |kon #ZRO|OTDIR "Z|
|00001960| 65 65 77 6f 6c 66 22 29 | 29 29 0a 09 09 28 73 65 |eewolf")|))...(se|
|00001970| 74 20 23 5a 52 4f 4f 54 | 44 49 52 0a 09 09 09 28 |t #ZROOT|DIR....(|
|00001980| 61 73 6b 64 69 72 0a 09 | 09 09 09 28 70 72 6f 6d |askdir..|...(prom|
|00001990| 70 74 20 22 57 68 65 72 | 65 20 64 6f 20 79 6f 75 |pt "Wher|e do you|
|000019a0| 20 68 61 76 65 20 5a 65 | 65 77 6f 6c 66 20 69 6e | have Ze|ewolf in|
|000019b0| 73 74 61 6c 6c 65 64 3f | 5c 6e 22 0a 09 09 09 09 |stalled?|\n".....|
|000019c0| 09 09 22 28 73 65 6c 65 | 63 74 20 74 68 65 20 64 |.."(sele|ct the d|
|000019d0| 69 72 65 63 74 6f 72 79 | 20 63 6f 6e 74 61 69 6e |irectory| contain|
|000019e0| 69 6e 67 20 74 68 65 20 | 27 5a 65 65 77 6f 6c 66 |ing the |'Zeewolf|
|000019f0| 27 20 64 72 61 77 65 72 | 29 22 0a 09 09 09 09 29 |' drawer|)".....)|
|00001a00| 0a 09 09 09 09 28 68 65 | 6c 70 20 40 61 73 6b 64 |.....(he|lp @askd|
|00001a10| 69 72 2d 68 65 6c 70 29 | 0a 09 09 09 09 28 64 65 |ir-help)|.....(de|
|00001a20| 66 61 75 6c 74 20 23 5a | 52 4f 4f 54 44 49 52 29 |fault #Z|ROOTDIR)|
|00001a30| 0a 09 09 09 29 0a 09 09 | 29 0a 09 29 0a 29 0a 28 |....)...|)..).).(|
|00001a40| 73 65 74 20 23 5a 44 45 | 53 54 44 49 52 20 28 74 |set #ZDE|STDIR (t|
|00001a50| 61 63 6b 6f 6e 20 23 5a | 52 4f 4f 54 44 49 52 20 |ackon #Z|ROOTDIR |
|00001a60| 22 5a 65 65 77 6f 6c 66 | 2f 22 29 29 0a 28 73 65 |"Zeewolf|/")).(se|
|00001a70| 74 20 23 5a 44 41 54 44 | 49 52 20 20 28 74 61 63 |t #ZDATD|IR  (tac|
|00001a80| 6b 6f 6e 20 23 5a 44 45 | 53 54 44 49 52 20 22 64 |kon #ZDE|STDIR "d|
|00001a90| 61 74 61 2f 22 29 29 0a | 28 73 65 74 20 40 64 65 |ata/")).|(set @de|
|00001aa0| 66 61 75 6c 74 2d 64 65 | 73 74 20 23 5a 44 45 53 |fault-de|st #ZDES|
|00001ab0| 54 44 49 52 29 0a 0a 3b | 0a 3b 20 43 72 65 61 74 |TDIR)..;|.; Creat|
|00001ac0| 65 20 74 68 65 20 69 6e | 73 74 61 6c 6c 61 74 69 |e the in|stallati|
|00001ad0| 6f 6e 20 64 69 72 65 63 | 74 6f 72 69 65 73 0a 3b |on direc|tories.;|
|00001ae0| 0a 28 53 5f 49 6e 73 74 | 61 6c 6c 44 69 72 73 29 |.(S_Inst|allDirs)|
|00001af0| 0a 0a 3b 0a 3b 20 49 6e | 73 74 61 6c 6c 20 74 68 |..;.; In|stall th|
|00001b00| 65 20 67 61 6d 65 20 64 | 61 74 61 0a 3b 0a 28 53 |e game d|ata.;.(S|
|00001b10| 5f 49 6e 73 74 61 6c 6c | 47 61 6d 65 29 0a 0a 3b |_Install|Game)..;|
|00001b20| 0a 3b 20 47 65 6e 65 72 | 61 74 65 20 61 6e 64 20 |.; Gener|ate and |
|00001b30| 69 6e 73 74 61 6c 6c 20 | 74 68 65 20 73 6c 61 76 |install |the slav|
|00001b40| 65 0a 3b 0a 28 53 5f 49 | 6e 73 74 61 6c 6c 53 6c |e.;.(S_I|nstallSl|
|00001b50| 61 76 65 29 0a 0a 3b 0a | 3b 20 49 6e 73 74 61 6c |ave)..;.|; Instal|
|00001b60| 6c 20 74 68 65 20 74 72 | 61 69 6e 65 72 20 47 55 |l the tr|ainer GU|
|00001b70| 49 0a 3b 0a 28 53 5f 49 | 6e 73 74 61 6c 6c 47 55 |I.;.(S_I|nstallGU|
|00001b80| 49 29 0a                |                         |I).     |        |
+--------+-------------------------+-------------------------+--------+--------+